home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / DTS Sample Code / Macintosh Sample Code / SC.013.OOPTESample / UTEDocument.p < prev    next >
Encoding:
Text File  |  1989-09-30  |  3.0 KB  |  97 lines  |  [TEXT/MPS ]
  1. {---------------------------------------------------------------------
  2. #
  3. #    Apple Macintosh Developer Technical Support
  4. #
  5. #    MultiFinder-Aware Simple TextEdit Sample Application
  6. #
  7. #    OOPTESample
  8. #
  9. #    UTEDocument.p        -    Pascal Source
  10. #
  11. #    Copyright © 1988, 1989 Apple Computer, Inc.
  12. #    All rights reserved.
  13. #
  14. #    Version:        
  15. #                    1.10                    10/89
  16. #                    1.00                    04/89
  17. #
  18. #    Components:     
  19. #                    BuildOOPTESample        October 1, 1989
  20. #                    MOOPTESample.p            October 1, 1989
  21. #                    OOPTESample.make        October 1, 1989
  22. #                    TECommon.h                October 1, 1989
  23. #                    TESampleGlue.a            October 1, 1989
  24. #                    TESample.r                October 1, 1989
  25. #                    UApplication.p            October 1, 1989
  26. #                    UApplication.inc1.p        October 1, 1989
  27. #                    UDocument.p                October 1, 1989
  28. #                    UDocument.inc1.p        October 1, 1989
  29. #                    UTEDocument.p            October 1, 1989
  30. #                    UTEDocument.inc1.p        October 1, 1989
  31. #                    UTESample.p                October 1, 1989
  32. #                    UTESample.inc1.p        October 1, 1989
  33. #
  34. ---------------------------------------------------------------------}
  35.  
  36. UNIT UTEDocument;
  37.  
  38. INTERFACE
  39.  
  40. USES
  41.     Types, QuickDraw, Controls, Events, Windows, TextEdit, Dialogs,
  42.     Desk, ToolUtils, OSUtils, Scrap, Memory,
  43.     ObjIntf, UDocument, UApplication;
  44.  
  45. PROCEDURE PascalClikLoop;
  46. FUNCTION GetOldClikLoop:ProcPtr;
  47.  
  48. TYPE
  49.     TTEDocument = OBJECT(TDocument)
  50.         fDocTE:            TEHandle;        { Our text, who art in heaven... }
  51.         fDocVScroll:    ControlHandle;    { Vertical Scrollbar }
  52.         fDocHScroll:    ControlHandle;    { Horizontal Scrollbar }
  53.         fDocClik:        ProcPtr;        { Our click loop }
  54.  
  55.         PROCEDURE TTEDocument.ITEDocument(resID:integer);
  56.         PROCEDURE TTEDocument.Free; OVERRIDE;
  57.  
  58.         { methods from TDocument we override }
  59.         PROCEDURE TTEDocument.DoZoom(partCode:integer); OVERRIDE;
  60.         PROCEDURE TTEDocument.DoGrow(theEvent:EventRecord); OVERRIDE;
  61.         PROCEDURE TTEDocument.DoContent(theEvent:EventRecord); OVERRIDE;
  62.         PROCEDURE TTEDocument.DoKeyDown(theEvent:EventRecord); OVERRIDE;
  63.         PROCEDURE TTEDocument.DoActivate(becomingActive:Boolean); OVERRIDE;
  64.         PROCEDURE TTEDocument.DoIdle; OVERRIDE;
  65.         PROCEDURE TTEDocument.DoUpdate; OVERRIDE;
  66.         PROCEDURE TTEDocument.DoCut; OVERRIDE;
  67.         PROCEDURE TTEDocument.DoCopy; OVERRIDE;
  68.         PROCEDURE TTEDocument.DoPaste; OVERRIDE;
  69.         PROCEDURE TTEDocument.DoClear; OVERRIDE;
  70.         FUNCTION TTEDocument.HaveSelection:Boolean; OVERRIDE;
  71.         FUNCTION TTEDocument.CalcIdle:Longint; OVERRIDE;
  72.  
  73.         { new public methods }
  74.         PROCEDURE TTEDocument.AdjustScrollValues(mustRedraw:Boolean);
  75.         FUNCTION TTEDocument.GetClikLoop:ProcPtr;
  76.         FUNCTION TTEDocument.GetTEHandle:TEHandle;
  77.         PROCEDURE TTEDocument.GetVisTERgn(rgn:RgnHandle);
  78.  
  79.         { methods not intended for use outside of this class }
  80.         PROCEDURE TTEDocument.GetTERect(VAR teRect:Rect);
  81.         PROCEDURE TTEDocument.AdjustTE;
  82.         PROCEDURE TTEDocument.DrawWindow;
  83.         PROCEDURE TTEDocument.AdjustViewRect;
  84.         PROCEDURE TTEDocument.ResizeWindow;
  85.         PROCEDURE TTEDocument.AdjustHV(isVert, mustRedraw:Boolean);
  86.         PROCEDURE TTEDocument.AdjustScrollSizes;
  87.         PROCEDURE TTEDocument.AdjustScrollbars(needsResize:Boolean);
  88.     END;
  89.  
  90. VAR
  91.     gApplication: TApplication;
  92.  
  93. IMPLEMENTATION
  94.  
  95. {$I UTEDocument.inc1.p}
  96.  
  97. END.